home *** CD-ROM | disk | FTP | other *** search
/ Canadian Geographic Explorer / Canadian Geographic Explorer.iso / pc / main.dxr / 00008_Movie frame script.ls < prev    next >
Encoding:
Text File  |  1996-10-02  |  431 b   |  20 lines

  1. on exitFrame
  2.   global gMLength, gMChannel, gStartClick
  3.   if gStartClick = 0 then
  4.     if soundBusy(1) or (the movieTime of sprite gMChannel < gMLength) then
  5.       go(the frame)
  6.     end if
  7.   else
  8.     nothing()
  9.     if the video of member "CanFly" = 1 then
  10.       set the video of member "CanFly" to 0
  11.     end if
  12.     if soundBusy(1) then
  13.       sound stop 1
  14.     end if
  15.     if soundBusy(2) then
  16.       sound stop 2
  17.     end if
  18.   end if
  19. end
  20.